﻿Module Module1
  Sub Main()
    Dim arr() As Integer = _
        {1, 2, 3, 4, 5, 6, _
         7, 8, 9, 10, 11, 12}
    For Each i As Integer In arr
      Console.WriteLine(i)
    Next i
    Console.ReadLine()
  End Sub
End Module

